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- IDENT /2-004/ 3 File: MTHALOG.MAR Edit: Netty 
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"ABSTRACT: 


MTHSALOG and MTH$ALOG10 are functions which return the floating point 
nerve’ or common logarithm of their gingie precision floating point 
arpynent- The call is standard call-by-reference. 
THSALOG_R5 one MTHS$ALOG10_R5 are special routines which are the 
os as ATHSALOG and MTHSALOGT except a faster non-standard JSB call 
is used with the argument in RO and no registers are saved. 


VERSION: 01 
HISTORY: 
AUTHOR: 
Peter Yuo, 15-Oct-76: Version 01 
MODIFIED BY: 


01-1 Peter Yuo, 22-May-77 


VERSION: 02 


HISTORY: 
AUTHOR : 


FACILITY: MATH LIBRARY 
Bob Hanek, 02-JUN-81: Version 02 
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t History 6-SEP-19 MTHRTL. SRE at THALOG.MAR; 1 
-SBTTL MISTORY ; Detailed Current Edit History 
VERSION 1 


ALGORITHMIC DIFFERENCE FROM FP=11C ROUTINE: 
1. Uses POLYF so greater accuracy. 


Edit History for Version 01 of MTH$ALOGL0G10 


01-1 fede saving after code re jew March 1977 
shed error handli "4 i) June 
=3 AHS enc shengee te to ATHSSSIGNAL. 
eee Change 
Changed Rnswy oR fig mechanism. Put error result in RO before 
cattts MTHSSSIGNAL in order to allow user modify error result. 


As Move .ENTRY mask definition. ‘inh 14-Aug-78 

be 7- date version number and ¢ tans notice. JBS 16-NOV-78 
1-008 - ange | x LOGZERNEG to wTHbk Bk SFERNES, JBS 07-DEC-78 
1-009 - Ada o PS gtvect ive. 

1-010 = Add slensnt rin 4 Pi | *9ge erickery. SBL 14-Feb-1979 
1-011 = Declare externals. 17-May-19 


Edit History for Version 02 of MTHS$ALOGL0G10 


$-00) - Add log base 2 entry points. RNH an -1981 
“R58 - Use d*vecto mode addressing for externals. SBL gg~aug- 1961 
003 - Added vectored entry peter MTHS$$AB_ALOG_V. RNH 29-Sep-81 
-004 - Change F_FHI to the global symbol MTHSSAB_F_FHI. PDG 3-Nov-81 
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-SBTTL DECLARATIONS ; Declarative Part of Module 


; INCLUDE FILES: MTHJACKET.MAR 


DOODOOOOOCOCO 


4 
5 
39 
i 
100 | EXTERNAL SYMBOLS: 
101 -DSABL GBL 
0 1 ¢ «EXTRN MTHSK LOGZERNEG 
$ ! ? SEXTRN MTHSSSIGNAL 
000 105 : 
000 «(1 $ ; EQUATED SYMBOLS: 
000 1 
000 108 
0000003C 0000 109 ACMASK = “MCR2, R3, R4, R5> : register ener nem and integer 
4 110 ; over! ow en 
reo see 000 111 LFLL Nag-Hi HI = = 2X72003¢81 : (Hi 16 bits. of Ln2) *#2e*-7 
cote F 0000 \1¢ LF “tN = *46D§3F F : (Low bits of Lln2)*2e*-7 
FDE 0000 11 LF =L0et0- e = .% 90 SF DE ; logl0(e) 
30006080 44 V3 SFL 
AA3B40B8 0000 116 F_INV_LN2_CONS = “F1.4426950408889634073599246810018921 374266 
4464 117 ; convert natural log to log base 2 
000 118 ; 
i443 119 ; MACROS: none 
44 120 ; 
444 : 1 ; PSECT DECLARATIONS: 
00000000 1 : -PSECT _MTHSCODE PIC,SHR,LONG,EXE,NOWRT 
4 ! : 3 program section for math routines 
0000 126 ; OWN STORAGE: none 
0000 127 ; 


d 7 


; Floating Point Natural and Common 16-SEP-1984 01:02:5 AX/VMS Macro V04-00 Page 5 
BECLARATI NS ; lestetarion Part of Modul green 4 9:98:38 ERTARTL. SREATHALOG MAR; 1 . (4) | 
8 129 ; CONSTANTS: 
i 
1 § ; The MTHS$AB_ALOG table is agcerses by the low order exponent bit and the 
135; first 7 fraction bits (not including the hidden bit) of the argument. The 
134 ; table entries are offsets into the F_FHI table below. Note that the 
135 ;  MTHS$AB_ALOG table is data type independent and is used by all four LOG 
0 1 $ 3 =©routines. 
000 | 
8 1 § MTH$SAB_ALOG_V:: ; Simulated vector entry for G | 
00000004" 300 139 -LONG MTHSS$AB_ALOG-. ; and H routines 
0004 16 MTHS$SAB_ALOG: : 
04 04 04 04 04 046 046 04 «+0004 = = 14 -BYTE X04, “X04, “X04, “X04, “X04, “X04, “X04, “X04 
04 04 04 04 04 8 04 04 QO00C 144 BYTE “X04, “X04, “X04, “X04, “X04, “X04, “X04, *X04 | 
09 09 09 04 04 04 04 BS 014 145 BYTE “X04, “X04, “X04, “X04, “X04, “X09, “X09, “X09 
09 09 09 09 09 09 09 09 Bats 146 BYTE “x09, *X09, “x09. “X09, “x09, “X09, “x09, “x09 
09 09 09 09 09 09 09 09 «+0024 ~= «614 BYTE *x09, “X09, “x09, “x09, “X09, “x09, “x09, “x09 
OE OE OE OE OE OE OE OE O02C 148 BYTE “XOE, “XOE, “XOE, “XOE, “XOE, “XOE, “XOE, “XOE 
OE OF OF OF OF OE OF OF O84 149 BYTE “XOE. “KOE. “XOE. “XOE, “XOE. “KOE. “XOE, “XO | 
13 13 13 13 13 13 13 1 Boze 150 Sire WR, “Ride “Ride “Ride “Ride “Rise “Nise “R) | 
18 18 13 13 13 13 13 1 044 151 SVin SS WRies Rinse “Hide “Ride “Ride “Hides “ale. “Ie 
18 18 18 18 18 18 18 18 004C 136 BYTE “x18, *xX18, “x18, “x18, “x18, “x18, *x18, “x18 
1D 10 10 10 10 1D 10 18 0054 15 BYTE “X18, “X1D, “X1D, “XID, “X1D, “X1D, “X1D, *X1D 
22 § $ $ § § 1D 1D Boas 154 -BYTE “*X1D, “X1D, “xX ¢ x $ 7 $. “x $- “x § X22 
§f 7 22 064 155 BYTE "Rees “Eales “Halse. “nals “Rata “hale Os *x2c 
1 31 31 31 2C 2c 2C 2c B296 156 oBVTE “Ket, “Keb. “hel. “RAC. “RS, ORS), ORS. TNS 
45 40 40 6 36 36 (0074 ~=«157 -BYTE  °X36, *X36, *X36, “X3B, “X3B, “X40, “X40, *X45 
FF FF FF FF FF FF FF FF OO7C 158 -BYTE “XFF, “XFF, “XFF, “XFF, “MXFF, “XFF, “XFF, “XFF 
3 37 3C 41 FF FF FF FF 0084 159 BYTE “XFF, “XFF, “XFF, “XFF, “X41, “X3C, “X37, °X3 
25 23 28 28 28 2D 38 3g 008c 160 BYTE alae. aXgee “X2D, “X28, “X28, “X28, “X23, “X2 
19 1E if 1 i if 23 0094 = 161 -BYTE “X25, “X23, “XIE, “XIE, “XIE, “XIE, “XIE, *x19 
14 14 19 19 19 19 19 19 009C 16¢ -BYTE “X19, “X19, “X19, “X19, “x19, *K19, *K14, *KX14 
OF 14 14 14 14 141414 QOAS= 16 BYTE “X14, “X14, “X14, “X14, “X14, “X14, “X14, “XOF 
OF OF OF OF OF OF OF OF OOAC 164 BYTE “XOF, “XOF, “XOF, “XOF, “XOF, “XOF, “XOF, “XOF 
OA OA = OA OA oe OF OF 00B4 165 BYTE “XOF, “XOF, “XOF, “XOA, “XOA, “XOA, “XOA, “XOA 
OA OA OA OA OA OA pA OA OOBC 166 BYTE “XOA, “XOA, “XOA, “XOA, “XOA, “XOA, “XOA, “XOA 
05 05 05 05 OA OA OA OA 00C4 ~~ 167 BYTE “XOA, “XOA, “XOA, “XOA, “X05, “X05, “X05, *x05 
05 05 05 05 05 05 05 05 OOCC 168 TE “x05, “x05, “x05, “x05, “x05, “x05, “x05, “x05 
05 05 05 05 05 05 be 05 00D4 169 -BYTE “x05, ange. “x05, “x05, “x05, “x05, “x05, “x05 
00 00 00 00 05 83 505 00DC 170 -BYTE “x05, “x05, “x05, “x05, “x00, “x00, “x00, “x00 
09 00 00 00 00 2 90 09 OOEe 173 "BYTE “KOO, “X00, °XO0. “X00, “X00. “KOO, “KOO, “X00 
00 90 00 06 00 06 90 0 dort 198 “BYTE “K00; “X00; “X00. “X00, “X00, “KOO, “KOO, “X00 | 
00 00 00 00 00 00 00 00 gore 7% -BYTE *x00, “x00, “x00, “x00, “x00, “x00, “x00, *x00 
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, 18 ; f he MTH$$AB_ALOG 
: index obtained from the 
FE i, Bigtthans leceety dete ere ee 
3 . For 
¢ the corresponding entry ares Fas notvused. Indices Betuden i4 ang | 
1 : gy Bi Ming h respect vely. For these in- 
104 8184 ; inclusive access entries 13 throug ding entry are LN FHI HI, 
: i the last three items in the corresponding y FHIL | 
d é ; ONE AE tO and FHI. The first two items for these entries are not used | 
104 189 wtyssae_t ruts: | 
1% } eee ; .18539906E+01 
te7OSA00 108 198 “tone “HACFO3A30 3 BKiiE | 
OO00401E O10C 19 -LONG = *X00004 cy 15E-0 | 
so 
Ste 138s Entry . .16180805E +01 
wanes SE te cent ae 
60003FF6 01 199 “LONG — *X60003FF i «481201176 +00 
Crtite His StH HE ORME 
012¢ 302 ; Entry . 145632416401 
presets tesa ies 
60003FCO 0134 305 “LONG —*X60003F : 1323732496400 
farbrOE plse | 508 TONG | “KCBF SCORE : 168666035E+00 
~ 0126 $8 ; Entry § 36122056401 | 
; “ : 1136 ‘ 
mines ee teas sag Haan | 
Cs Yer 
bEFSe0 f 0186 18 - LONG “KDE SLOSE : .74558955E+00 
154 14; Entry 4 - » .12587168E+01 | 
srasan, He i eee 
0005F 15C 21 LONG “Xx 09 FOB os 1282 rh 4 Se | 
Rages Sieh Sta CHEE SALES 
16 Ys Entry . .11995795E+01 | 
i eg ae amie Bien 
40003F3A 01 Cot geet tet i+! 93E-04 | 
ggrennes Bire 3 CLONG THeaiasoee RERHRODEE Be 
17¢ ; Entry . .11562393E +01 
eases $s OT chews seas Bie: 
: ri ; | 
AQOO3F14 0184 “LONG = *XA0005F | *°310801 £04 | 
285000 5 i ? “LONG “Xe8s0e0 5 ; *§o08929 E+00 | 
1 6 : Entry a , 1 
C18C408F 019 : .LONG *XC18C408F : .11230941E+0 
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4 LOGTAB2: 3 ay ants for p(z*z). Generated + He 
4 é § 3. ito f Rare et. al. (sin 
4 : cy ~ At * where b = 292) 
6D943F CD 4 4 -LONG “X6D943FCD 3; C2 = 0.40 23664 
AAI1402A 8 95 eLONG “XAA9140 3; Cle + B86862 18 14 
000041 ° C 38 -LONG %*x000041 ; CO = 2.00000000 
0000000 3 3 LOGLEN2 = .-LOGTAB2/4 
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SEP-1984 MTHRTL.SRCIJMTHALOG.MAR; 1 
-SBTTL MTHSALOG = Standard Single Precision Floating LOG 


+e 
FUNCTIONAL DESCRIPTION: 
LOG = single precision floating point function 
LOG(X) is computed using the following approximation technique: 
If X =< 0, error. Otherwise 
Let X = f * (2**n), where 1/2 <= f < 1 
If n is orgeter than or equal to 1 than 
set N=n- 1 and F = 2ef. 
Else 
set N =n and F = f. 
Then Ln(x) = Neln2 + Ln(F) 
If tf = 11 < 2e*-5 then 
in(F) = W + WeP(W), where W = F - 1 and P 
st is a polynomial of degree 5. 
se 
in(F) = Ln(FHI) + 2#0(2*2), where FHI is ob- 
tained by table Logh~ue Qisa Fa) yaseten of 
degree 2 and Z = (F = FHI)/(F + FHI 
NOTE: The quantities In(FHI) and ln2 are used in the above 
equst tone in two parts - a high part (containing the 
h qr order bits) and a low part (containing the low 
order bits. In the code the nigh and low parts of the 
constants are indicated by a _HI] and LO suffix respec- 
tively. The values were chosén such Ehat N*LN_2_HI + 
LN_FHI_HI is exactly representable. 
CALLING SEQUENCE: 
lLogarithm.wf.v = MTHSALOG(x.rf.r) 
INPUT PARAMETERS: 


LONG = 4 ; define Lonquorg multiplier 
x = 1 * LONG ; Contents of x is the argument 


IMPLICIT INPUTS: none 
OUTPUT PARAMETERS: 
VALUE: floating logarithm of the argument 
IMPLICIT OUTPUTS: none 
COMPLETION CODES: none 
SIDE EFFECTS: 
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Signals: MTH$_LOGZERNEG if ‘xX! =< 0.0 with reserved peerend in RO (copied to 
the signal mechanism vector CHFSL_MCH_RO/R1 by LIBSSIGNAL). 

Associated message 1g: "“LOGARITHM”OF ZERO OR NEGATIVE VALUE". Result is 
poserves operene -0.0 unless a user supplied (or any) error handler changes 


NOTE: This procedure disables fioating point underflow and integer 
overflow, causes no floating overflow or other arithmetic traps, and 
preserves enables across the call. 


-ENTRY MTHSALOG, ACMASK 3; standard call-by-reference entry 
3; disable DV (and FU), enable IV 
MTHSFLAG_ JACKET : flag that this is a jacket procedure 


MOVAB G*MTHSSJACKET_HND, (FP) 
; set handler address to jacket 
3; handler 


in case of an error in special JSB 
routine 

RO = arg , 

call special LOG rountine 

return - result in RO 


MOVF  ax/AP), RO 
8988 MTHSALOG_RS 
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-SBTTL MTHSALOGIO = Standard Single Precision Floating Common Log 

3 + 

: 3 FUNCTIONAL DESCRIPTION: 

$ : L0G10 - single precision floating point function 

3 ; LOGIO(X) is computed as LOGIO(E) * LOG(X). 

ay : See description of MTHSALOG 

36 > CALLING SEQUENCE: 

34 : Logarithm_base_10.wf.v = MTHSALOG10(x.rf.r) 

%6 : INPUT PARAMETERS: 

98 LONG = 4 ; define Lonquor¢ multiplier 
44 x = 1 * LONG ; Contents of x is the argument 
401 ; 
rt ; SIDE EFFECTS: See description of MTH$ALOG 
404 ;-- 
i 
409 eENTRY MTHSALOG10, ACMASK 3 standard call-by-reference entry 
408 ; disable DV (and FU), enable IV 
409 MTHSFLAG_JACKET ; flag that this is a jacket procedure 

MOVAB G*MTHSSJACKET_HND, (FP) 
3; set handler address to jacket 
3; handler 

410 : in case of an error in special JSB 
411 ; routine 
aig MOVF ax(AP), RO ; RO = arg 
41 BSBB = MTHSALOG10_R5 : call special LOG10 routine 
ret ET ; return - result in RO 


a 


K 7 
t Natural and Common 16-SEP-1984 01:02:5 AX/VMS Macro V04-00 P 1 
andard Single Precision F ~3Fbr 382 9:98:98 EMTHRTL. SREIMTHALOG MARS 1 rhe (8) 


~SBTTL MTHSALOG2 = Standard Single Precision Floating Common Logarithm 


g Po 


=z 
“4 
z= 
An-— 
ro 
oe 
on 
qaqQ- 
ms 


FUNCTIONAL DESCRIPTION: 
LOG2 = single precision floating point function 
LOG2(X) is computed as LOG2(E) * LOG(X). 
See description of MTHSALOG 
CALLING SEQUENCE: 

Logarithm_base_2.wf.v = MTHS$ALOG2(x.rf.r) 
INPUT PARAMETERS: 


00000004 LONG = 4 :; define longword multiplier 
ditty x = 1 * LONG ; Contents of x is the Srqunent 
; SIDE EFFECTS: See description of MTHSALOG 
003C -ENTRY MTHSALOG2, ACMASK 3 ndard call-by-reference entry 
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sta 

3; disable DV (and FU), enable IV 

MTHSFLAG_JACKET ; flag that this is a jacket procedure 

6D  Q0000000'GF 9E MOVAB G*MTHSSJACKET_HND, (FP) 

3 pet pendlor address to jacket 
andler 
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446 : in case of an error in special JSB 
447 3 routine 
50 04 BC 38 $38 MOVF ax(AP), RO ; RO = ar 
1A 44 BSBB_ ss MTHSALOG_R5 ; JSB to the natural log routine 
50 AA3B40B8 BF 44 450 MULF2 #F_INV_LN2_CONS, RO 3 convert to base 
04 $3) RET 3 return - result in RO 
5 43 
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~SBTTL MTHSALOGLOGIO_RS5 = Special LOG/LOG10 routines 
Special LOG/LOG10 = used by the standard, and directly. 


CALLING SEQUENCE: 
seve anything needed in RO:R5 


JSB MTHSALOG10_ RS /MTHSALOG AS 
return with result in RO 

Note: This routine is settten to avoid causing any ansegar overflows, 

floating overflows, or floating underflows or divide by 0 conditions, 

whether enabled or not. 


eetiia * y USED: 


A ab hb bth hl 


input in RO 


F 
R4 - Wor Z during POLYF 
R5 = pointer into F_FHI table 


MTHS$AL0G10 eat special LOG10 routine 

BItw R5 = Biased exponent 

BLEQ ns aba is net defined for x=<0 

NOTE: User's PC is on top of the 

araah the. ERROR Logic earenes on 
the user's PC being on top of t 
stack so a direct call to MIHSAL OG 
is not used 


55 50 OO7F 8F #°X7F, RO, RS 
6E ERR 
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10 10 BSBB ALOG_COMMON_RS Call common LOG/LOG10 Logic 
50 SBDO3FDE B&F 44 MULF #LF _C0G10_ E> RO RO = LO0G10(e)*LOG(X) = LOG10(X) 
05 RSB Return 
MTHSALOG_RS:: 3; special LOG hat bined 
55 50 OO7F 8F Ae Bicw3 #*x7F, RO, RS ; R5 = Biased exponent 
-. 3 BLEQ RR 3; ALOG(X) is not defined for x=<0 
ALOG_COMMON_RS: 
55 4000 8F A subg #*x4000, R5 ; RS = Unbiased exponent 
58 1 BLEQ NEG_EXP $ Branch to processing for n=<0 


Exponent is positive. N=n- 1 and F = 2f 


n-1 


N= 
F = ef 
index into MTH$$AB_ALOG table 
offset into F_FHI fables 

ch to special Srocessing. 

r F close to 1 


55 080 SUBW eee RS 


SUBW 
MOVZBL RO, R 
MOVB MTH$$AB _ALOGCR3], R3 
BLSS LN_1_PLOS 


DWIOS DWODDDDnr—— " OOOO FS NNN 


F 
5 
53 FDSC cr2$ 
40 
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; Compute Z, Z**2, P(Z**2) and 2*P(Z**2) 
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Push N onto the stack 
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55 FEST CF4 ) AF 12 MOVAL MTHSSAB_F_FHICR3], R5 3; RS = Address of FHI 
Dd B 1 MOVL (R5)+, R2 3; R2 = FHI 
54 4 B7 514 SUBF3 RR, RO, R4 | RG =F = FHI 
4 BB 15 ADDF R2, R ; RO =F + FHI 
4 4 Bf 16 DIVF RO, R4 3 R46 = 2 = (F = FHID/CF + FHI) 
4 4 & C 1 MULF3 R4, R4, RO 3 RO = Z**2 
FF69 CF : 0 5 C5 18 POLYF RO, #LOGLEN2-1, LOGTAB2 ; RO = P(Z2*#2) 
4 4% ee 3 MULF R4, R 3 RO = Z*P(Z**2) 
cE 1 : 
tf gi ; Compute B = N*LN_2_LO + LN_FHI_LO + Z*P(7Z*7Z) 
51 BESES33F B&F gf 45 C 4 MULF3 (SP), #LF_LN_2_L0, R1 ; R1 = N*LN_2_L0 
51 8 40 D 5 ADDF (R5)+, RI 3; R1 = N*LN_ -t0 + LN_FHI_LO 
50 651 «40 «(0209's 5 : ADDF = R1, RO > RO = 8 
ae 
4: : 3 ; Compute A = N*LN_2_HI + LN_FHI_HI and ALOG(X) 
51 72003(CB1 8F 4) 45 8 dc 531 MULF3 (SP)+, MLF_LN_2_HI, R1 ; R1 = N*LN.2_HI 
516 40 0264 § § ADDF (R5), RI ; R1 = A = AeCN 2.HI + LN_FHI_HI 
50 51 «440 O2e7 5 ADDF = R1, RO ; RO = A+B = ALOG(X) 
05 O2EA 534 RSB 
02E8 2 5 
02EB $ LN_1_PLUS: 
51 11 0 45 : 5 BRB LN_1_PLUS_W 
0077 31 ED 336 ERR: BRW ERROR 
0 4 540 
O2F ef} 3 
02F0 4g 3 ; Exponent is negative. N =n and fF = f 
O2FO 2 3 
8 FO 44 
50 55 A2 Fe 545 NEG_EXP: SUBW RS, . ; RO =F = f 
53 50 9A O2F 278 MOVZBL 3 R35 = index into MTH$$AB_ALOG table 
53 FDO9 CF43 90 8 F6 54 MOVB ATASSAB ALOGERS). R3 ; R3 = offset into F_FHI Fables 
40 19 FC 548 BLSS LN_1_PLOS_W ; Branch to special processing 
O2FE 549 ; for F close to 1 
FE 229 
FE 51; 
43 236 ; Compute Z, Z2**2, P(Z**2) and 2*P(Z**2) 
FE 54° 
7E 55 4D AS 338 CVTWF RS, =(SP) 3; Push N onto the stack 
55 FDFE CF43 D 2$ MOVAL MTHSSAB_F_FHICR3], R5 ; RS = Address of FHI 
5 5 D 7 5 MOVL (R5), R2 ; R2 = FHI 
54 COS 4 A 38 SUBF3 R2, RO, R4 > ROE F = a 
2? 40 ‘ 5 ADDF Re, RO ; RO =F + FHI 
4 5 é 1 60 DIVE RO, R4 s RQ eZ = - FHI)/(F + FHI) 
54 54 & 14 61 MULF3 R4, RS 3 RO = Z**#2 
FFI6 CF 02 50 «(5550318 6¢ POLYF RO. #OGLEN2=1 LOGTAB2 : RO = P(Z**#2) 
54h 1E 6 MULF R4, 3 RO = Z*P(Z**2) 
351 ee 
' 66 : Compute B = N*LN_2_LO + LN_FHI_LO + Z2*P(7Z*7) 
51 BESE333F BF 6E 45 1 568 MULF3 (SP), MLF_LN_2_LO, RI; R1 = N*LN_2_LO 
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= Special LOG/LOG10 ro 6-SEP-1984 11: 
ADDF =(R5) 
ADDF = 1, ad * 

; Compute A = N*LN_2_HI + LN_FHI_HI and 
MULF3  (SP)+, WF LN.2HI, R1 
SUBF -(R5), R 
ADDF =e RX'1,_RO 
RSB 


$ Special logic for F close to 1 


LN_1_PLUS Wi: 
SOBF3 #SF_1, RO, R4 
sorye R4, “#LOGLEN1=1,LOGTAB1 
MULF  R4. RO 
CVTWE ORS. RS 
MULF3 RS; WF _LN2L0, R1 
A 1; R 


DDF 

ADDF R4, RO 

MULF WF LUN 2H, RS 
ADDF = R5, “RO 

RSB 


; X =< 0.0, signal error 


: 


ERROR: PUSHL (SP) 


rr a WMTHSK LOGZERNEG, -(SP) 
ASH #15, #T, RO 


CALLS #2, G*MTHS$S$SIGNAL 
RSB 


END 
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; return PC from JSB routine 
; condition value 


; RO = resut’ reserved operand -0.0 


: goes to signal mechanism vector 
3; (CHFSL_MCH_ 4 ely he so error handler 
: can modify the result. 


indepe error and use real user's PC 
sh 


ependent of CALL vs 
: - RO restored fro 
: CHE SL nwCH. RO/R1 
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; Floating Point Natural and Common 


MTHSALOG 
Symbol table 


ACMASK 000 af 
ALOG. COMMON_RS 4 1 R 01 
ERR 0 43 R 4 
OR 0 R 1 
F_INV_LN2_CONS = AA Be 8 
F_UN~2_HT = 72 er 
LF_LN 2 LO = 3 § F 
LF 1.06 JE = 5BD9SFDE 
LN_1_PLUS 4h gfe R 01 
LN_1 4 es B88 ER 01 
LOGLEN = 0000 one 
LOGLEN2 = 0000000 
LOGTAB1 464 if 8 01 
LOGTAB2 000234 R 01 
G = 00000004 
MTHSS$AB_ALO 00000004 RG 01 
MTHSS$AB_ALOG_V Boho he RG 01 
MTHSSAB F 00 01 
MTHSSJACKET_HND teeeenee 01 
MTHS$SIGNAL reretere 00 
THSALOG 0000240 RG 01 
MTHSAL 00000250 RG 01 
MTHSALOG10_R5 00000277 RG 01 
Le yy 00000260 RG 01 
MTHSAL 00000289 RG 01 
MTHSK LO SCTERNEG eeeeeeee =X 00 
NEG_EXP 000002FO R 01 
P. = 00004080 
x = 00000004 
See nroe en ene we oes $ 
! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
$ 00000000 0.) 00 ¢ OO.) NOPIC USR CON 
MTHSCODE 00000379 (¢ 889.) O01 ¢ 1.) PIC USR CON 
pom mew ere ene ere nee nore wes 
! : Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 6 :00:01.92 
poanens processing 133 09: 0: 5: e 09: 0: a-81 
s 1 1 0:00:05.88 
Synbol table sort 9 09: ‘80: 0:00: 380-9) 

11 701. Q Q: ° 
we table output 4 :00. 0: +88" 
Psect synopsis output 0: 700. 0: 
Cross-reference output 8: :00. 0: 00: 3 9 
Assembler run totals 39 :00:03. 0:0 1 


ine Re yorking set Limit was 1050 pages. 
bytes (21 pages) of virtual memory were used to buffer the intermediate code. 
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LCL ag NOEXE NORD NOWRT NOVEC BYTE 
LCL SHR EXE RD NOWRT NOVEC LONG 


, 


C 
MTHSALOG ; Floating Point Natural and Common 16-SEP-1984 01:02:56 VAX/VMS Macro Vv04-00 Page 1 
VAX=11 Macro Run Statistics 6-SEP=1984 11:20:16 CMTHRTL.SRCIMTHALOG.MAR; 1 ( 


wre were 10 pages of symbol table space allocated to hold 29 non-local and 0 local symbols. 
673 source Lines were read in Pass 1, producing 18 object records in Pass 2. 
1 page of virtual memory was used to define 1 macro. 


Macro Library name Macros define 
“S255SDUAZB:(SYSLIBISTARLET.MLB;20 0 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHALOG/OBJ=0BJ$:MTHALOG MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRCS: 
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